IF exists(SELECT * FROM dbo.sysobjects WHERE name='fr_XMLbeslissing' AND xtype='P') 
BEGIN
	DROP PROCEDURE fr_XMLbeslissing
END
GO

CREATE  procedure fr_XMLbeslissing(
	@versie float,
	@aard char(1),@periode char(2),
	@inschrijvingsNr char(7),@groepsnaam varchar(20),
	@hoofdNr int, @test bit)
as
set nocount on
if (@test=1)
begin
  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  values(@hoofdNr,'0','0','<beslissing>')

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'01','0','<attest code="1A234">' 
			+ 'Je mag naar het volgend jaar.' + '</attest>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'02','0','<advies  code="1A234">' 
			+ 'Doe zo verder.' + '</advies>'
 
  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select @hoofdNr,'03','0', '<amendement>'  + 'Maar let op wiskunde.' + '</amendement>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select @hoofdNr,'04','0', '<notule>De beslissing werd unaniem genomen.</notule>'
	from studiebegeleiding..Del_notulen
	where inschrijvingsNr=@inschrijvingsNr

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'05',0,'<waarschuwing>' 
  union
  select @hoofdNr,'06',1,'<v code="ne">Nederlands</v>' 
  union
  select @hoofdNr,'06',1,'<v code="wi">Wiskunde</v>'
  union
  select distinct @hoofdNr,'07',0,'</waarschuwing>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'08',0,'<taak>' 
  union
  select @hoofdNr,'09',1,'<v code="ne">Nederlands</v>' 
  union
  select @hoofdNr,'09',1,'<v code="wi">Wiskunde</v>'
  union
  select distinct @hoofdNr,'10',0,'</taak>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'11',0,'<taakMetTest>' 
  union
  select @hoofdNr,'12',1,'<v code="ne">Nederlands</v>' 
  union
  select @hoofdNr,'12',1,'<v code="wi">Wiskunde</v>'
  union
  select distinct @hoofdNr,'13',0,'</taakMetTest>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'14',0,'<bijkomend>' 
  union
  select @hoofdNr,'15',1,'<v code="ne">Nederlands</v>' 
  union
  select @hoofdNr,'15',1,'<v code="wi">Wiskunde</v>'
  union
  select distinct @hoofdNr,'16',0,'</bijkomend>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  values(@hoofdNr,'ZZZ','0','</beslissing>')
end
else
begin
  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  values(@hoofdNr,'0','0','<beslissing>')

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'01','0','<attest code="' + b.attestCode + '">' 
			+ convert(varchar(7900),a.attestTekst) + '</attest>'
  from studiebegeleiding..Del_beslis as b
	left join studiegegevens..attest as a
		on a.attestCode = b.attestCode
	where b.inschrijvingsNr=@inschrijvingsNr

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'02','0','<advies code="' + b.adviesCode + '">'  
			+ convert(varchar(7900),a.adviesTekst) + '</advies>'
  from studiebegeleiding..Del_beslis as b
	left join studiegegevens..advies as a
		on a.adviesCode = b.adviesCode
	where b.inschrijvingsNr=@inschrijvingsNr

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select @hoofdNr,'03',volgNr, '<amendement>'  + convert(varchar(7900),amendementTekst) + '</amendement>'
	from studiebegeleiding..Del_amendement
	where inschrijvingsNr=@inschrijvingsNr


  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select @hoofdNr,'04','0', '<notule>'  + convert(varchar(7900),notuleTekst) + '</notule>'
	from studiebegeleiding..Del_notulen
	where inschrijvingsNr=@inschrijvingsNr

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'05',0,'<waarschuwing>' 
  union
  select @hoofdNr,'06',volgNr,'<v code="' + vakcode + '">' + vaknaam + '</v>' 
	from studiebegeleiding..Del_waarschuwing as w
	left join leraars..vakvolgorde as l
		on w.vak=l.vakcode
	where inschrijvingsNr=@inschrijvingsNr
  union
  select distinct @hoofdNr,'07',0,'</waarschuwing>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'08',0,'<taak>' 
  union
  select @hoofdNr,'09',volgNr,'<v code="' + vakcode + '">' + vaknaam + '</v>' 
	from studiebegeleiding..Del_taak as t
	left join leraars..vakvolgorde as l
		on t.vak=l.vakcode
	where inschrijvingsNr=@inschrijvingsNr
  union
  select distinct @hoofdNr,'10',0,'</taak>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'11',0,'<taakMetTest>' 
  union
  select @hoofdNr,'12',volgNr,'<v code="' + vakcode + '">' + vaknaam + '</v>' 
	from studiebegeleiding..Del_taakMetTest as tt
	left join leraars..vakvolgorde as l
		on tt.vak=l.vakcode
	where inschrijvingsNr=@inschrijvingsNr
  union
  select distinct @hoofdNr,'13',0,'</taakMetTest>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  select distinct @hoofdNr,'14',0,'<bijkomend>' 
  union
  select @hoofdNr,'15',volgNr,'<v code="' + vakcode + '">' + vaknaam + '</v>' 
	from studiebegeleiding..Del_bijkomend as b
	left join leraars..vakvolgorde as l
		on b.vak=l.vakcode
	where inschrijvingsNr=@inschrijvingsNr
  union
  select distinct @hoofdNr,'16',0,'</bijkomend>'

  insert into fr_tussen(hoofdNr,tussenNr,volgNr,tekst)
  values(@hoofdNr,'ZZZ','0','</beslissing>')
end